home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 10
/
CU Amiga Magazine's Super CD-ROM 10 (1997-03-15)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-05][50887 CUAM10].iso
/
CUCD
/
Sound
/
hippo_dopus
/
hippoplay.dopus5
next >
Wrap
Text File
|
1996-11-04
|
3KB
|
127 lines
/*
$VER: Hippoplay.dopus5 v.2.0 (28.10.96)
Play'er script for DirOpus 5.5 by Martin Leopold
Contact me for any reason at:
Fido : 2:235/314.58 Amy: 39:141/105.58
Inter: leopold@hoa.ping.dk HOA: 10:1/5.58
Installation:
The most important thing: Change the line
StartHip = ""
into your path and filename of hippoplayer i.e. something like this:
StartHip = "Hd1:Utils/music/Hip"
If you want to use this script as a filetype, make a filetype called
and add the following class:
mathcname: (S3M|Fred|S3M|mod|MDAT).#?
As the function enter the following, set the cycle gadget to ARexx:
HippoPlay.opus5 {Qp} {Ql} {f} [programfile] [HIDE?]
Instead of [programfile] write the full path including filname of your
hippoplayer program file, if you leave it out Hippoplayer won't try to
a program file it will simply be ignored.
If you wan't to start HippoPlayer hidden, replace [HIDE?] with HIDDEN
otherwise just leave it out.
This script features the following controls of Hippoplayer from Dopus:
QUIT Quit Hippoplayer from DOpus
Function (set the cycle gadget to ARexx): HippoPlay.opus5 {Qp} {Ql}
RPlay Plays a song from the list by random
Function (set the cycle gadget to ARexx): HippoPlay.opus5 {Qp} {Ql}
Thanks to K-P Koljonen for making Hippoplayer the best player
*/
Parse Arg port ' ' lhandle ' "' File '"' ' ' progfile ' ' hideyn
StartHip = ""
options results
HipResult=Show(P,"HIPPOPLAYER")
Address value port
If UPPER(File) = "RPLAY" then call RPLAY
If UPPER(File) = "QUIT" then call Quit
If UPPER(progfile) = "HIDE" then HideYN="HIDE"
If File = "" Then Do
Call TitleBar
Exit 0
End
PPYN = ""
If HipResult=0 Then do
lister set lhandle title 'Loading HippoPlayer...'
lister refresh lhandle full
if HideYN = "HIDE" then Address Command ''StartHip' HIDE "'file'"'
else Address Command ''StartHip' "'file'"'
Address Command 'waitforport HIPPOPLAYER'
If ProgFile~='' & ProgFile~="HIDE" then Address 'HIPPOPLAYER' LOADPRG
lister set lhandle source
End
PPYN = " - Unpacked"
call Open(PPTest,File,r)
PTest = ReadCh(PPTest,4)
call Close(PPTest)
If PTest = "PP20" Then PPYN = " - PowerPacked"
If PTest = "XPKF" Then PPYN = " - XPK-Packed"
If HipResult~=0 then do
if PTest ~= " - Unpacked" then do
lister set lhandle title "Loading & decrunching..."
lister refresh lhandle full
END
Else do
lister set handle title "Loading..."
lister refresh lhandle full
END
address 'HIPPOPLAYER'
add File
get NFIL
CHOOSE result
PLAY
DEL
Address value port
End
Call TitleBar
Exit 0
TitleBar:
If Show(P,port) = 1 Then Do
address 'HIPPOPLAYER' get name
Fil = result
Fil = space(Fil,0)
lister set lhandle title "Playing: "Fil""
lister refresh lhandle full
End
Return
RPlay:
If HipResult = 0 Then Exit 0
address 'HIPPOPLAYER'
get NFIL
IF result>1 then RANDPLAY
address value port
lister set lhandle title
lister refresh lhandle full
Exit 0
Quit:
If HipResult = 0 Then Exit 0
address 'HIPPOPLAYER' QUIT
lister set lhandle title
lister refresh lhandle full
Exit 0